可能是延迟问题。等一等看行不行
Dim cm d As New SQLCommand
cmd.commandtext = "updat e {销售明细} set 单数 = 1 where 单数 is null"cmd.ExecuteNonQuery()
msgbox(333)
DataTables("销售明细").Load()