Adodc2.Recordset.MoveLast
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields("定时触发时间") = Now
      Adodc2.Recordset.Fields("具体电量参数") = "A相电流为:     "
      Adodc2.Recordset.Fields("对应参数数值") = Str(lnum(5) * 16 * 16 + lnum(6)) & " mA"
      Adodc2.Recordset.Update
      Adodc2.Recordset.MoveLast
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields("定时触发时间") = Now
      Adodc2.Recordset.Fields("具体电量参数") = "B相电流为:     "
      Adodc2.Recordset.Fields("对应参数数值") = Str(lnum(9) * 16 * 16 + lnum(10)) & " mA"
      Adodc2.Recordset.Update
      Adodc2.Recordset.MoveLast
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields("定时触发时间") = Now
      Adodc2.Recordset.Fields("具体电量参数") = "C相电流为:     "
      Adodc2.Recordset.Fields("对应参数数值") = Str(lnum(13) * 16 * 16 + lnum(14)) & " mA"
      Adodc2.Recordset.Update
      Adodc2.Recordset.MoveLast
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields("定时触发时间") = Now
      Adodc2.Recordset.Fields("具体电量参数") = "N相电流为:     "
      Adodc2.Recordset.Fields("对应参数数值") = Str(lnum(17) * 16 * 16 + lnum(18)) & " mA"
      Adodc2.Recordset.Update
      Adodc2.Recordset.MoveLast
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields("定时触发时间") = Now
      Adodc2.Recordset.Fields("具体电量参数") = "AB线电压为:   "
      Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(21) * 16 * 16 + lnum(22)) / 100) & " V"
      Adodc2.Recordset.Update
      Adodc2.Recordset.MoveLast
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields("定时触发时间") = Now
      Adodc2.Recordset.Fields("具体电量参数") = "BC线电压为:   "
      Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(25) * 16 * 16 + lnum(26)) / 100) & " V"
      Adodc2.Recordset.Update
      Adodc2.Recordset.MoveLast
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields("定时触发时间") = Now
      Adodc2.Recordset.Fields("具体电量参数") = "CA线电压为:   "
      Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(29) * 16 * 16 + lnum(30)) / 100) & " V"
      Adodc2.Recordset.Update
      Adodc2.Recordset.MoveLast
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields("定时触发时间") = Now
      Adodc2.Recordset.Fields("具体电量参数") = "A相电压V为:   "
      Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(33) * 16 * 16 + lnum(34)) / 100) & " V"
      Adodc2.Recordset.Update
      Adodc2.Recordset.MoveLast
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields("定时触发时间") = Now
      Adodc2.Recordset.Fields("具体电量参数") = "B相电压V为:   "
      Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(37) * 16 * 16 + lnum(38)) / 100) & " V"
      Adodc2.Recordset.Update
      Adodc2.Recordset.MoveLast
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields("定时触发时间") = Now
      Adodc2.Recordset.Fields("具体电量参数") = "C相电压V为:   "
      Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(41) * 16 * 16 + lnum(42)) / 100) & " V"
      Adodc2.Recordset.Update
      Adodc2.Recordset.MoveLast
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields("定时触发时间") = Now
      Adodc2.Recordset.Fields("具体电量参数") = "频率为:            "
      Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(45) * 16 * 16 + lnum(46)) / 100) & " HZ"
      Adodc2.Recordset.Update
      Adodc2.Recordset.MoveLast
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields("定时触发时间") = Now
      Adodc2.Recordset.Fields("具体电量参数") = "有功功率为:    "
      Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(49) * 16 * 16 + lnum(50)) / 100) & " kW"
      Adodc2.Recordset.Update
--------------------------------------------------------------------------------------
调试老是出现问题???