Dim t1 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("text1")
Dim t2 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("text2")
Dim t3 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("text3")
Dim r1 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("jytxt")
Dim r2 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("sytxt")
Dim r3 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("cost")
Dim t1_txt As String = IIF(t1.Text Is Nothing ,"丨"," 类别: "& t1.text &" " )
Dim t2_txt As String = IIF(t1.Text Is Nothing ,"丨"," 名称: "& t2.text &" " )
Dim t3_txt As String = IIF(t1.Text Is Nothing ,"丨"," 规格型号: "& t3.text &" " )
Dim j As String = t1_txt & t2_txt & t3_txt
Dim r1_txt As String = r1.Text
Dim r2_txt As String = r2.Text
Dim r3_txt As String = r3.Text
Tables("查询表").AddNew
Dim r As Row = Tables("查询表").Current
r("内容") = j
r("净用量") = r1_txt
r("实用量") = r2_txt
r("不含税合计") = r3_txt
用nothing ,怎么也都执行最后面的语句