很简单的啊,全局代码那里
Case BriSDKLib.BriEvent_GetCallID '接收到来电号码 Dim PhoneNumber As String = ByteArrayToString(EventData.szData)
msgbox(PhoneNumber) Forms("窗口1").Controls("Table1").Table.Fill("Select [_Identify], [订货人], [订货单位], [货物名称], [单价] From {销售订单} Where 订货人手机号 = '" & PhoneNumber & "'", false)