在窗口中通过选择勾选行，将各行增加到业务明细表中，代码如下：

1：如何增加判断是否有勾选行，如果没有勾选通过messagebox提醒用户

2：小计列的表达式如何编写？ （价格*数量*折扣）

Dim rs As List(of Row) = Tables("制作报价单_Table1").GetCheckedRows()

如何增加判断？
For Each r As Row In rs
    Dim dr As DataRow = DataTables("业务明细").AddNew()
    dr("零件价格") = r("零件价格")
    dr("数量") = 1 \'设置默认值
    dr("商业折扣") = zk
    dr("小计") ???
Next

另外一个现象，在窗口的after load后写了加载代码，开启窗口后没有按照代码加载，但把这个代码拷贝到一个按钮内后，就可以执行，不知为什么？

Dim rs As List(of Row) = Tables("制作报价单_Table1").GetCheckedRows()

if rs.count>0 then
For Each r As Row In rs
    Dim dr As DataRow = DataTables("业务明细").AddNew()
    dr("零件价格") = r("零件价格")
    dr("数量") = 1 \'设置默认值
    dr("商业折扣") = zk
    直接使用合计模式就好了.http://www.foxtable.com/help/topics/2750.htm
Next

else

messagebox.show("没有选中")

end if