vb中原样输出

显示全部楼层 · 2010-12-31 12:58:03

dim str3 as string
If Check1(0).Value = Checked Then

str3 = "rs(drugRxName)"
End If
If Check1(1).Value = Checked Then

str4 = "rs(stock_drugSpace)"

str3 = str3 & vbTab & str4
End If
If Check1(2).Value = Checked Then

str4 = rs("stock_libUnit")

str3 = str3 & vbTab & str4
End If
msgbox str3
rs该怎么定义，怎么才能把双引号都加上rs("drugRxName")不报错的原样输出呢
我要的是弹出来的效果和下面一样，符号也要一样
rs("drugRxName") & vbTab & rs("stock_drugSpace") &vbTab & rs("stock_libUnit")
高手帮帮忙啊！

千问 · 2010-12-31 12:58:03

只用一个check，dim str3 as stringIf Check1.Value = Checked Then
MsgBox"rs("drugRxName") & vbTab & rs("stock_drugSpace") &vbTab & rs("stock_libUnit")","输出"End If