Dim yea As String
yea = e.Sender.Value
Dim pihao As String
If yea <> "" Then
For Each dc As DataCol In Tables("工艺参数修改查看_Table1").DataTable.DataCols 这个表是sqlcommand创建的临时表
If dc.Name.StartsWith("批号") Or dc.Name.StartsWith("产品批号") Then
pihao = dc.Name
End If
Next
messagebox。show(pihao & yea) 这里正常显示
Tables("工艺参数修改查看_Table1").DataTable.RemoveFor(pihao Like "'" & yea & "%'") 这里不起作用,表格里面还是有数据
End If
[此贴子已经被作者于2025/1/17 9:40:42编辑过]
http://www.foxtable.com/webhelp/topics/1284.htmmsgbox(
pihao Like "'" & yea & "%'")
msgbox(pihao & " like '" & yea & "%'")
Tables("工艺参数修改查看_Table1").DataTable.RemoveFor(pihao & " like '" & yea & "%'")