主题：每次点击一次按钮往“排单状态”表中插入一行记录

Dim zj As Row = Tables("排单状态").addnew()    

改成

Dim zj As dataRow = DataTables("排单状态").Find("物供号='" & dz("物供号") & "' and 订单号='" & dz("订单号") & "'")

If zj Is Nothing then zj = DataTables("排单状态").AddNew