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
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
加好友 
发短信
Post By：2017/12/3 0:16:00 [显示全部帖子]
