dim dr as datarow=datatables("test").datarows(0)
Dim btn As WinForm.button
btn = e.Form.CreateControl("test“, ControlTypeEnum.button)
btn.width=100
btn.height=40
btn.text=dr("库位号")
Dim cps As Integer= DataTables("库位明细").Compute("sum(数量)","库位号='" & dr("库位号") & "'")
If cps>0 Then
btn.BackColor = ColorTranslator.FromHtml("#e2e2e2")
btn.ForeColor=Color.red
Else
btn.BackColor = ColorTranslator.FromHtml("#009688")
btn.ForeColor=Color.white
End If
e.Form.Controls("panel1").AddControl(btn)
以上代码能改变按钮背景色 但是字体颜色一直都是默认的
加好友 
发短信
Post By：2021/6/13 18:19:00 [只看该作者]
