问题一:
如何取得当前的时间?
我想在一个TEXTBOX里显示现在的时间,能实现吗?
问题二:
我这有两个表:FROM1和FROM2
WX.MDB数据库里有duizhao这个表,表里有两个字段:报障人和报帐分局
FROM1里有个ADODC1连接了WX.MDB数据库
FROM2里有两个COMBOL,一个是报障人,一个是报帐分局.我想在报障人的COMBOL里ADDITEM,增加的选择的内容是FORM1里连接的WX.MDB数据库里的报障人字段,字段有限制,是要求名称为报帐分局对应的哪个报帐人的数据.应该怎样编写这段SELECT
如何取得当前的时间?
我想在一个TEXTBOX里显示现在的时间,能实现吗?
问题二:
我这有两个表:FROM1和FROM2
WX.MDB数据库里有duizhao这个表,表里有两个字段:报障人和报帐分局
FROM1里有个ADODC1连接了WX.MDB数据库
FROM2里有两个COMBOL,一个是报障人,一个是报帐分局.我想在报障人的COMBOL里ADDITEM,增加的选择的内容是FORM1里连接的WX.MDB数据库里的报障人字段,字段有限制,是要求名称为报帐分局对应的哪个报帐人的数据.应该怎样编写这段SELECT
Option ExplicitPrivate Sub Form_Load()
Text1.Text = Now
End Sub
2:
dim r as new adodb.recordset
dim SQL as string SQL = "select DISTINCT 保障人 as tt from expcontract "
r.Open SQL, cN
Do While Not r.EOF
Me.cmbLoadPort.AddItem Trim(r!tt & " ")
r.MoveNext
Loop
r.Close
sub combo1_change()
dim r as new adodb.recordset
dim SQL as string
SQL = "select * as tt from expcontract where 保障人='" & combo1 & "'"
r.Open SQL, cN
Do While Not r.EOF
Me.cmbLoadPort.AddItem Trim(r!tt & " ")
r.MoveNext
Loop
r.Close
end sub
其实我要的很简单,我只需要WX库里表duizhao里的报障人字段,但这个报帐人,我要有个限制
就是要保障人字段的内容要和duizhao表里的报帐分局字段关联的哪个保障人.
表DUIZHAO结果如下 field(0) field(1)
字段 保障分局 报帐人
数据 白云区 张三
数据 青天区 李四我只要那个COMBOL2里面列出张三或者李四,不过一定要在我的另一个COMBOL里面先选了白云区,然后COMBOL2里直接就变成张三了,而不用选李四
如果程序有详细的解释,我会给双倍的分,谢谢