复合框 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

不太明白你问题了，你不就是希望复选框里选择品种时候，sasa得打相应的合约吗，另外在文本框里这边对应着输出不是吗？？

那么我9楼这边给范例不就是这样了吗？？

我是想通过复选框来选择出一个合约，
他的那个，只能在图表窗里显示出合约，并不能取出合约，
我要的是默认合约与所选合约相同，就是你显IF00，那也IF00取出来放到一个地方，现在取不出来，

现在想要取出合约，只能先点第二，再回点第一才会生效

//----------------------完整的程序是这样的，这远法通过编译------------模块是这样写的

Sub APPLICATION_VBAStart()

CALL bk_ComboBox1_Click '触发一次复选框

bk.Show '打开主控窗体

TestReportData
End Sub

//-------------------------------------------------------------------------------------------------------------------------下面是窗体页

编译时会显示无数据出错，如果在后面强行加载SASA为IF12，这样程序能正常，复选择框显示IG01也正常，但是复选框的值无法取出
bk_ComboBox1.List = Array("IF00", "IH00", "IC00", "TF00")
bk_ComboBox1.listindex=0
bk_TextBox1="IF00"                                  '要先给textbox传递过去，不然你放在事件里的话就只有点击才会执行了
Sub bk_ComboBox1_Click()
      Select Case bk_ComboBox1.Value
             Case bk_ComboBox1.List(0)
                  SASA="IF00"
              Case bk_ComboBox1.List(1)
                  SASA="IH00"

                  Case bk_ComboBox1.List(2)
                  SASA="IC00"

                  Case bk_ComboBox1.List(3)
                  SASA="TF00"
      End Select
    bk_TextBox1=SASA
End Sub

Sub TestReportData()
触发复选框后的取值是这样的

bkCode1="SASA"

set report1=marketdata.getreportdata(bkCode1,"ZJ")

End Sub

[此贴子已经被作者于2016-6-27 14:00:42编辑过]

021-20339087

电话联系吧

不好意思，我刚看了，我贴图的这个错了，我实际的是这样的

bk_ComboBox1.List = Array("IF00", "IH00", "IC00", "TF00")
bk_ComboBox1.listindex=0
SASA="IF00" '我这里中有写这一句的，这样编译不能通过

Sub bk_ComboBox1_Click()
      Select Case bk_ComboBox1.Value
             Case bk_ComboBox1.List(0)
                  SASA="IF00"
              Case bk_ComboBox1.List(1)
                  SASA="IH00"

                  Case bk_ComboBox1.List(2)
                  SASA="IC00"

                  Case bk_ComboBox1.List(3)
                  SASA="TF00"
      End Select
    bk_TextBox1=SASA
End Sub

bk.Show
dim SASA

bk_ComboBox1.List = Array("IF00", "IH00", "IC00", "TF00")
bk_ComboBox1.listindex=0
SASA="IF00"                                  '我这里中有写这一句的，这样编译不能通过    \

set report1=marketdata.getreportdata("IF00","ZJ")
bk_TextBox1 = report1.newprice
Sub bk_ComboBox1_Click()
      Select Case bk_ComboBox1.Value
             Case bk_ComboBox1.List(0)
                  SASA="IF00"
                  set report1=marketdata.getreportdata(SASA,"ZJ")
                  bk_TextBox1 = report1.NewPrice
              Case bk_ComboBox1.List(1)
                  SASA="IH00"
                  set report1=marketdata.getreportdata(SASA,"ZJ")
                  bk_TextBox1 = report1.NewPrice
                  Case bk_ComboBox1.List(2)
                  SASA="IC00"
                  set report1=marketdata.getreportdata(SASA,"ZJ")
                  bk_TextBox1 = report1.NewPrice
                  Case bk_ComboBox1.List(3)
                  SASA="TF00"
                  set report1=marketdata.getreportdata(SASA,"ZJ")
                  bk_TextBox1 = report1.NewPrice
      End Select

End Sub

主题：复合框