VBÔÚÏßÇóÖú£¬¼±~~ - VB / ¿Ø¼þ
Õâ¸öFunction±àÒëʱÌáʾcan't find project or library
Ó¦¸ÃÊÇÀà¿âûÓÐÌí¼Ó°É£»ÒªÔõô×ö²ÅÐа¡£¿
Ó¦¸ÃÊÇDataComboÕâ¸öµÄÎÊÌâ
Public Sub FilterDataCombo(ByVal idacbo As DataCombo, ByVal BoundColumn As String, ByVal ListField As String, ByVal iRsdacbo As ADODB.RecordSet)
Dim strTmpData As String
Dim rstmp As ADODB.RecordSet
On Error GoTo err
If iRsdacbo Is Nothing Then Exit Sub
strTmpData = Trim(idacbo.BoundText)
iRsdacbo.Filter = adFilterNone
If strTmpData <> "" Then
iRsdacbo.Filter = BoundColumn & " like " & kk(strTmpData & "%")
End If
Set rstmp = rsCopy(iRsdacbo)
GetDatadacboGotFocus idacbo, rstmp, BoundColumn, ListField, , IIf(Trim(strTmpData) <> "", False, True)
iRsdacbo.Filter = 0
Exit Sub
err:
Call GetMsg(E_OnErrMsg, "[ FilterDataCombo ]ErrNo:" & err.Number & " ErrDesc:" & err.Description)
End Sub
¶¼ÒýÓÃÁË¡£»¹ÊDz»ÐÐ
³ö´íÐÐÖ¸ÏòÄÄÌõÓï¾ä£¿
ÔÚIDEÀïÔËÐÐһϿ´¿´ÊÇ·ñ³ö´í£¬³ö´íÐÐÖ¸ÏòÄÄÀï¡£
¼ÇµÃ×¢µôon error Ö®ÀàµÄÓï¾ä
³ö´íÖ¸ÏòPublic Sub FilterDataCombo(ByVal idacbo As DataCombo, ByVal BoundColumn As String, ByVal ListField As String, ByVal iRsdacbo As ADODB.RecordSet)
°ÑByVal idacbo As DataComboÄõô¾Í¿ÉÒÔÁË
{{-
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......