以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  以下这段代码 如果在窗口中 怎么写?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91198)

--  作者:jswjyjf
--  发布时间:2016/10/2 22:05:00
--  以下这段代码 如果在窗口中 怎么写?
Dim drs As List(Of DataRow)
drs = DataTables("订单").Select("[产品] = \'PD01\' And [日期]= #1/4/1999#")
For Each 
dr As Datarow In drs
    dr("折扣") = 0.12

Next

--  作者:jswjyjf
--  发布时间:2016/10/2 22:10:00
--  
因为要用到ShowCheckBox
--  作者:y2287958
--  发布时间:2016/10/2 23:50:00
--  
有什么不一样吗