- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于显示问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8107)
-- 发布时间：2010/9/6 13:23:00
-- 关于显示问题
Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "单价" Andalso e.NewValue > 0 Then
Dim str As String
str = "[编号] = \'" & dr("编号") & "\' And [颜色] = \'" & dr("颜色") & "\' And [单位] = \'" & dr("单位") & "\' And [单价] Is Not Null"
Dim dr2 As DataRow = DataTables("报价").Find(Str)
If dr2 IsNot Nothing Andalso dr("_Identify") <> dr2("_Identify") Then
MessageBox.Show("已经有此报价了","提示")
e.Cancel = True
Else
If e.NewValue < dr("价格_厂价") * 1.3 Andalso dr("价格_允许") = False Then
e.Cancel = True
End If
End If
此代码只能出现如下图形的提示，
End If
此主题相关图片如下：11.jpg
那如果我要在原基础上，再要求显示把已报过的“编号”“颜色”“单位”“单价”都显示出来，请问狐表爸爸，如下设置，谢谢
-- 发布时间：2010/9/6 14:01:00
--
如: MessageBox.Show( "编号:" & Tables("表A").Current("第一列") & "已经有此报价了","提示")
-- 发布时间：2010/9/6 14:38:00
--
MessageBox.Show( “编号:" & dr("编号") & " 颜色:" & dr("颜色") & " 单价:" & dr("单价") & " 已经有此报价了","提示")
-- 发布时间：2010/9/6 14:47:00
--
我根据你的意思，加了第二列了，可出现如图的，请帮我解释一下错在那里，谢谢
此主题相关图片如下：111.jpg
-- 发布时间：2010/9/6 14:48:00
--
那如果要加显示第二列，应该怎么加代码，谢谢
-- 发布时间：2010/9/6 14:54:00
--
你的Current("第一列") 后面多了个点，成了CurrentTable("第一列").
当然出错的, 计算即使机械的，多一个字符都不行的。
-- 发布时间：2010/9/6 15:03:00
--
谢谢
-- 发布时间：2010/9/6 15:22:00
--
狐爸问题又来了，按我的意思应该显示已报过的编号的价格，好做参考，可现在不是，请看图
此主题相关图片如下：1111.jpg
-- 发布时间：2010/9/6 15:29:00
--
提示表按要求应该显示：编号：A10.3
而不是：编号：A10.4
如果我想把“已经有此报价了”换行显示，请求代码
-- 发布时间：2010/9/6 15:35:00
--
你在命令窗口执行下面的代码看看：
MessageBox.Show("如果你认真学习了,你会觉得" & vbcrlf & "Visual Basic一点不难!", "提示")
vbcrlf表示回车换行符号。