| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 代码冲突 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110439) |
| -- 作者：yangwenghd -- 发布时间：2017/12/3 0:16:00 -- 代码冲突 能帮忙看看下面两段代码吗？把他分别放到两个不同的按钮里面，结果就只能用一个了，比如点了选择文件的再点另外一个按钮就没反应了，感谢 感谢 代码1 If e.Form.Controls("Label8").Text = "分析中" Then If e.Form.Controls("ComboBox1").Text = "分析中" Then Tables("项目档案").current("项目档案_状态") = "分析中" \'列内容变为0 ElseIf e.Form.Controls("ComboBox1").Text = "关注" Then Dim ndra As DataRow = DataTables("投资资产").AddNew ndra("关联编号") = e.Form.controls("Label6").text ndra("项目属性_变动日期") = e.Form.controls("DateTimePicker1").text ndra("项目属性_变动编号") = Format(Date.Now, "yyyyMMddHHmmss") \'变动日期编号 ndra("资产时态_其它收益")="0" Tables("项目档案").current("项目档案_状态") = "关注中" \'列内容变为0 ElseIf e.Form.Controls("ComboBox1").Text = "投资" Then Dim ndrb As DataRow = DataTables("投资资产").AddNew ndrb("关联编号") = e.Form.controls("Label6").text ndrb("项目属性_变动日期") = e.Form.controls("DateTimePicker1").text ndrb("项目属性_变动编号") = Format(Date.Now, "yyyyMMddHHmmss") \'变动日期编号 ndrb("资产时态_其它收益")="0" Tables("项目档案").current("项目档案_状态") = "投资中" \'列内容变为0 BaseMainForm.Visible = True Forms("资金分配操作窗口").show() \'只显示窗口 Forms("资金分配操作窗口").Controls("ComboBox4").value = e.Form.controls("Label7").text Forms("资金分配操作窗口").Controls("ComboBox7").value = e.Form.controls("Label6").text Forms("资金分配操作窗口").Controls("RadioButton3").checked = True Forms("资金分配操作窗口").Controls("RadioButton7").checked = True ElseIf e.Form.Controls("ComboBox1").Text = "否定" Then Tables("项目档案").current("项目档案_状态") = "否定" \'列内容变为0 End If End If If e.Form.Controls("Label8").Text = "关注中" Then If e.Form.Controls("ComboBox1").Text = "关注中" Then Tables("项目档案").current("项目档案_状态") = "关注中" \'列内容变为0 ElseIf e.Form.Controls("ComboBox1").Text = "投资" Then Tables("项目档案").current("项目档案_状态") = "投资中" \'列内容变为0 BaseMainForm.Visible = True Forms("资金分配操作窗口").show() \'只显示窗口 \'股价 ElseIf e.Form.Controls("ComboBox1").Text = "否定" Then Tables("项目档案").current("项目档案_状态") = "否定" \'列内容变为0 End If End If If e.Form.Controls("Label8").Text = "投资中" Then If e.Form.Controls("ComboBox1").Text = "投资" Then Tables("项目档案").current("项目档案_状态") = "投资中" \'列内容变为0 Forms("资金分配操作窗口").show() \'只显示窗口 ElseIf e.Form.Controls("ComboBox1").Text = "否定" Then If Tables("投资资产").current("资产时态_在投资金") <> "0" Then msgbox("此项目有还有未处理资产.") End If If Tables("投资资产").current("资产时态_在投资金") = "0" Then Tables("项目档案").current("项目档案_状态") = "否定" \'列内容变为0 End If End If End If 代码2 If e.Form.Controls("Label8").Text = "分析中" Then Dim cma As WinForm.ComboBox cma = Forms("财务数据窗口").Controls("ComboBox1") cma.ComboList = "分析中|关注中|投资中|否定" \'cma.Text = "分析中" End If If e.Form.Controls("Label8").Text = "关注中" Then Dim cmb As WinForm.ComboBox cmb = Forms("财务数据窗口").Controls("ComboBox1") cmb.ComboList = "关注中|投资中|否定" \'cmb.Text = "关注中" End If If e.Form.Controls("Label8").Text = "投资中" Then Dim cmc As WinForm.ComboBox cmc = Forms("财务数据窗口").Controls("ComboBox1") cmc.ComboList = "投资中|否定" \'cmc.Text = "投资中" End If 感谢 感谢
[此贴子已经被作者于2017/12/3 12:13:42编辑过]
|
| -- 作者：blsu33 -- 发布时间：2017/12/3 12:55:00 -- 代码2 Forms("财务数据窗口") 窗口是否打开了,不知是不是这的原因？ If e.Form.Controls("Label8").Text = "分析中" Then Dim cma As WinForm.ComboBox if Forms("财务数据窗口").opened= false then Forms("财务数据窗口").open() end if cma = Forms("财务数据窗口").Controls("ComboBox1") |
| -- 作者：有点甜 -- 发布时间：2017/12/3 13:10:00 -- 你说的没反应指什么？触发代码还是什么？
请单独做个例子发上来测试。 |