以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  设置table中列的值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185774)

--  作者:ycs5801
--  发布时间:2023/3/16 11:06:00
--  设置table中列的值

If Tables("员工点餐表").Current Is Nothing Then
    MessageBox.Show("未选中菜品")
Else
   ?   
End If

 

上边是在窗口中设置了一个按钮,点击按钮如果未在table中选定行,则提示未选中菜品,如果选中了行,则将此行的菜品列中的值提取出来,假如是扬州炒饭,将table中所有行中的菜品列等于扬州炒饭的是否完完成列,设置为true。

 

dim caipin as string=Tables("订单").Current("菜品")

Tables("员工点餐表").Filter = "[菜品]=\'" & caipin & "\'"

DataTables("员工点餐表").ReplaceFor("制作完成", true, Tables("员工点餐表").Filter)

 

这样对吗

[此贴子已经被作者于2023/3/16 11:08:45编辑过]

--  作者:有点蓝
--  发布时间:2023/3/16 11:09:00
--  

dim caipin as string=Tables("订单").Current("菜品")

DataTables("员工点餐表").ReplaceFor("菜品"true"[菜品]=\'" & caipin & "\'")


--  作者:ycs5801
--  发布时间:2023/3/16 11:32:00
--  
这种只替换了table中的行,不会替换后台符合条件的行吧?
--  作者:有点蓝
--  发布时间:2023/3/16 11:53:00
--  
只替换已经加载的数据。
[此贴子已经被作者于2023/3/16 11:53:24编辑过]