我要实现的功能是这样，从数据库A的SQL数据库查询表过滤出符合要求的订单，写到数据库B的另一张表，并对A数据库的某个字段赋值，现在代码全部运行完成且没有问题了，但是卡在最后一步“对数据库A的赋值”，怎么改都不能赋值，求大神老师帮忙看看？
Dim cmb As WinForm.ComboBox ’
cmb = e.Form.Controls("ComboBox1")
Dim cmd As New S
QLCommand
cmd.C
’ 定义数据库A的数据源For Each dr1 As Row In Tables("发料表").GetCheckedRows
'定义行数据集合Dim x As String = dr1("workbillno")
Dim dr2 As DataRow = DataTables("排单表").AddNew()
dr2("单号") = dr1("workbillno")
dr2("客户名称") = dr1("customername")
dr2("品名") = dr1("GoodsName")
cmd.CommandText ="updata set fstate = 10 from {Pl_waterworkbill} Where workbillno = '"& X & "'"
’ 按数据库B表中符合workbillno的记录，对数据库A的fstate字段赋值为10，就是这句执行不了。
Next
我也做过断点测试，在倒数第三行（就是cmd.commandtext.....）之前，写了一句：
msgbox（dr1（“workbillno”））
测试下来，msgbox返回的workbillno集合值都是正确的，除了无法赋值给数据库。
另外还想请教：sql代码在狐表里面的书写时没有出错信息的，有时候错了都不知道。要调试SQL代码有什么技巧吗？谢谢！
[此贴子已经被作者于2020/4/3 21:12:41编辑过]
加好友 
发短信
Post By：2020/4/3 21:11:00 [只看该作者]
此主题相关图片如下：wt.jpg
QL相关全部再看一遍，没有指出在使用UP
DATE语句有什么特殊要求。再到论坛，以“S